home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Tool Chest / Interfaces / Universal Interfaces 2.0a3 / Universal AIncludes / Folders.a < prev    next >
Encoding:
Text File  |  1994-11-11  |  2.1 KB  |  73 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        Folders.a
  3. ;
  4. ;    Copyright:    © 1984-1994 by Apple Computer, Inc.
  5. ;                All rights reserved.
  6. ;
  7. ;    Version:    Universal Interfaces 2.0a3  ETO #16, MPW prerelease.  Friday, November 11, 1994. 
  8. ;
  9. ;    Bugs?:        If you find a problem with this file, send the file and version
  10. ;                information (from above) and the problem description to:
  11. ;
  12. ;                    Internet:    apple.bugs@applelink.apple.com
  13. ;                    AppleLink:    APPLE.BUGS
  14. ;
  15. ;
  16.  
  17.     IF &TYPE('__FOLDERS__') = 'UNDEFINED' THEN
  18. __FOLDERS__ SET 1
  19.  
  20.  
  21.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  22.     include 'Types.a'
  23.     ENDIF
  24. ;        include 'ConditionalMacros.a'                                ;
  25.  
  26.     IF &TYPE('__FILES__') = 'UNDEFINED' THEN
  27.     include 'Files.a'
  28.     ENDIF
  29. ;        include 'MixedMode.a'                                        ;
  30. ;        include 'OSUtils.a'                                        ;
  31. ;            include 'Memory.a'                                        ;
  32.  
  33. kOnSystemDisk                    EQU        $8000
  34. kCreateFolder                    EQU        true
  35. kDontCreateFolder                EQU        false
  36. kSystemFolderType                EQU        'macs'                ; the system folder 
  37. kDesktopFolderType                EQU        'desk'                ; the desktop folder; objects in this folder show on the desk top. 
  38. kTrashFolderType                EQU        'trsh'                ; the trash folder; objects in this folder show up in the trash 
  39. kWhereToEmptyTrashFolderType    EQU        'empt'                ; the "empty trash" folder; Finder starts empty from here down 
  40. kPrintMonitorDocsFolderType        EQU        'prnt'                ; Print Monitor documents 
  41. kStartupFolderType                EQU        'strt'                ; Finder objects (applications, documents, DAs, aliases, to...) to open at startup go here 
  42. kAppleMenuFolderType            EQU        'amnu'                ; Finder objects to put into the Apple menu go here 
  43. kControlPanelFolderType            EQU        'ctrl'                ; Control Panels go here (may contain INITs) 
  44. kExtensionFolderType            EQU        'extn'                ; Finder extensions go here 
  45. kFontsFolderType                EQU        'font'                ; Fonts go here 
  46. kPreferencesFolderType            EQU        'pref'                ; preferences for applications go here 
  47. kTemporaryFolderType            EQU        'temp'
  48.  
  49.     IF SystemSevenOrLater  THEN
  50.     IF GENERATING68K THEN
  51.         Macro
  52.         _FindFolder
  53.             moveq    #0,d0
  54.             dc.w     $A823
  55.         EndM
  56.     ELSE
  57.         IMPORT    FindFolder
  58.     ENDIF
  59.  
  60.     ELSE
  61.     ENDIF
  62.     IF GENERATING68K THEN
  63.         Macro
  64.         _ReleaseFolder
  65.             moveq    #11,d0
  66.             dc.w     $A823
  67.         EndM
  68.     ELSE
  69.         IMPORT    ReleaseFolder
  70.     ENDIF
  71.  
  72.     ENDIF ; __FOLDERS__
  73.